(SETQ KLIST NIL)

(DEFPROP PLUS 
 (LAMBDA (L) (*EXPAND L (QUOTE *PLUS))) 
MACRO)

(DEFPROP DIFFERENCE 
 (LAMBDA (L) (*EXPAND L (QUOTE *DIF))) 
MACRO)

(DEFPROP TIMES 
 (LAMBDA (L) (*EXPAND L (QUOTE *TIMES))) 
MACRO)

(DEFPROP QUOTIENT 
 (LAMBDA (L) (*EXPAND L (QUOTE *QUO))) 
MACRO)

(DEFPROP LESSP 
 (LAMBDA(L)
  (LIST (QUOTE *LESS)
	(*EXPAND1 (CDR (REVERSE (CDR L))) (QUOTE (LAMBDA (X Y) (COND ((AND X (*LESS X Y)) Y)))))
	(CAR (LAST L)))) 
MACRO)

(DEFPROP GREATERP 
 (LAMBDA(L)
  (LIST (QUOTE *GREAT)
	(*EXPAND1 (CDR (REVERSE (CDR L))) (QUOTE (LAMBDA (X Y) (COND ((AND X (*GREAT X Y)) Y)))))
	(CAR (LAST L)))) 
MACRO)

(DEFPROP MIN
 (LAMBDA (L) (*EXPAND L (QUOTE *MIN)))
MACRO)

(DEFPROP MAX
 (LAMBDA (L) (*EXPAND L (QUOTE *MAX)))
MACRO)

(NOUUO T)
(*RSET T)
(HGHORG BPORG)
(SETQ BPORG BORG1)
(SETQ BPEND BEND1)
(HGHCOR NIL)
(INITPROMPT 52)

(DSKOUT
 (REMOB . LSP)
 (MAPC (FUNCTION (LAMBDA(X)
		  (PRINT (LIST (QUOTE PUTSYM)
			       X
			       (LIST (QUOTE NUMVAL) (GET X (QUOTE SYM)))))))
	REMOB))

(EVAL (CONS (QUOTE REMOB) REMOB))

(DEFPROP REMOB (NIL) VALUE)

(REMOB SYS1 SYS2)

(INITFN
 (QUOTE
  (LAMBDA()
   (SYSCLR)
   (INITFN
    (QUOTE
     (LAMBDA()
      (TERPRI)
      (PRINC (QUOTE "UCI LISP"))
      (INITFN NIL)
      (TERPRI)))))))
(PROG NIL (INC NIL T) (OUTC NIL T) (EXCISE) (ERR))